home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / shell-tools / wbstart / xfa_library / amigae / examples / xfa_info.e < prev    next >
Encoding:
Text File  |  1995-09-06  |  1.1 KB  |  45 lines
  1. /*
  2. ** XFA Info - Example Of How To Get Infos About An XFA Anim In AmigaE
  3. **
  4. ** Code Written By: Fabio Rotondo
  5. ** Based Upon An Original Blitz2 Code By Mik Of ClassX
  6. **
  7. ** This code is Public Domain.
  8. **
  9. ** Written For ClassX
  10. */
  11.  
  12. MODULE 'xfa','libraries/xfa','dos/rdargs'
  13.  
  14. PROC main()
  15.   DEF args=NIL:PTR TO LONG, rdargs 
  16.   DEF head:PTR TO xfa_head 
  17.   
  18.   WriteF('XFAInfo V0.1 - By Fabio Rotondo.\n')
  19.   
  20.   rdargs:=ReadArgs('NAME/A', args, NIL)
  21.   IF rdargs
  22.     IF (xfabase:=OpenLibrary('xfa.library',0))
  23.       IF (XfA_LoadAnim(args[0],0,0,FALSE) = 0)
  24.         head:=XfA_HeadPtr()
  25.         WriteF('Anim File: \s\n', args[0])
  26.         WriteF('XFA Width  = \d\n', head.bytesperrow*8)
  27.         WriteF('XFA Height = \d\n', head.rows)
  28.         WriteF('XFA Depth  = \d\n', head.depth)   
  29.         WriteF('XFA ModeID = \h\n', head.modeid)
  30.         WriteF('XFA Flags  = \d\n', head.flags)
  31.         WriteF('XFA Frames = \d\n', head.nframes)
  32.       ELSE
  33.         WriteF('File not found or read error.\n')
  34.       ENDIF
  35.       CloseLibrary(xfabase)
  36.     ELSE
  37.       WriteF('Cannot Open xfa.library\n')
  38.     ENDIF
  39.     FreeArgs(rdargs)
  40.   ELSE
  41.     WriteF('Bad Args.\n')
  42.   ENDIF
  43.   CleanUp(0) 
  44. ENDPROC
  45.